Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.2/Group1/Tarihdll.dll/0/RCDATA/THASTAFORM/THASTAFORM.txt

Text File | 1998-07-24 | 26KB | 996 lines

object HastaForm: THastaForm
  Left = 29
  Top = 6
  Width = 593
  Height = 428
  ActiveControl = EditHASTADI
  Caption = 'HASTA KAYIT KARTI'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 585
    Height = 401
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 3
    Caption = 'Panel2'
    TabOrder = 0
    object ScrollBox: TScrollBox
      Left = 5
      Top = 5
      Width = 575
      Height = 391
      HelpContext = 310
      HorzScrollBar.Margin = 6
      VertScrollBar.Margin = 6
      Align = alClient
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object Bevel2: TBevel
        Left = 5
        Top = 317
        Width = 406
        Height = 61
        Style = bsRaised
      end
      object Bevel1: TBevel
        Left = 5
        Top = 179
        Width = 406
        Height = 131
        Style = bsRaised
      end
      object Label3: TLabel
        Left = 261
        Top = 30
        Width = 48
        Height = 14
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&KURUMU'
        FocusControl = EditKURUM
      end
      object Label4: TLabel
        Left = 27
        Top = 58
        Width = 36
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&ADRES'
        FocusControl = EditADRES
      end
      object Label7: TLabel
        Left = 238
        Top = 57
        Width = 71
        Height = 14
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&EV TELEFONU'
        FocusControl = EditTLFEV
      end
      object Label8: TLabel
        Left = 242
        Top = 82
        Width = 67
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&�� TELEFONU'
        FocusControl = EditTLFIS
      end
      object Label10: TLabel
        Left = 31
        Top = 153
        Width = 32
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&TAR�H'
        FocusControl = EditTARIH
      end
      object Label11: TLabel
        Left = 30
        Top = 132
        Width = 33
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&UYARI'
        FocusControl = EditUYARI
      end
      object Label12: TLabel
        Left = 419
        Top = 154
        Width = 143
        Height = 13
        AutoSize = False
        Caption = 'HASTA �LE �LG�L� &NOTLAR'
        FocusControl = MemoBILGI
      end
      object LabelBAS1: TLabel
        Left = 12
        Top = 197
        Width = 123
        Height = 14
        AutoSize = False
        Caption = '1. BA�LIK'
        FocusControl = EditLISTBAS
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelBAS2: TLabel
        Left = 145
        Top = 197
        Width = 126
        Height = 13
        AutoSize = False
        Caption = '2. BA�LIK'
        FocusControl = EditLISTBAS2
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelBAS3: TLabel
        Left = 281
        Top = 197
        Width = 122
        Height = 14
        AutoSize = False
        Caption = '3. BA�LIK'
        FocusControl = EditLISTBAS3
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelALACAK: TLabel
        Left = 230
        Top = 114
        Width = 49
        Height = 12
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'ALACAK'
        FocusControl = EditALACAK
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object LabelBORC: TLabel
        Left = 245
        Top = 136
        Width = 34
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'BOR�'
        FocusControl = EditBORC
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object Label2: TLabel
        Left = 5
        Top = 5
        Width = 58
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = '&HASTA ADI'
        FocusControl = EditHASTADI
      end
      object SpeedBtnTakvim: TSpeedButton
        Left = 146
        Top = 151
        Width = 22
        Height = 21
        Hint = 'Takvime Bak�n'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333330000003333333333333333330000003338888888888888330000003304
          0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
          FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
          F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033F7777777777F4833000000330000000000003333000000333333333333
          333333000000333333333333333333000000}
        ParentShowHint = False
        ShowHint = True
        Spacing = 3
        OnClick = SpeedBtnTakvimClick
      end
      object SpeedBKRM: TSpeedButton
        Left = 392
        Top = 27
        Width = 20
        Height = 20
        Hint = 'Kurum Se� F5 Tu�u'
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
          FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
          333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
          000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
          FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
          8F8444333333300000003448F7433333333330000000348F7733333333333000
          000034F77433333333333F000000344443333333333330000000333333333333
          333337000000}
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedBKRMClick
      end
      object LabelKALAN: TLabel
        Left = 280
        Top = 154
        Width = 127
        Height = 14
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'LabelKALAN'
        Color = clBlack
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Visible = False
      end
      object Label1: TLabel
        Left = 240
        Top = 155
        Width = 37
        Height = 12
        Alignment = taRightJustify
        Caption = 'KALAN'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object Label5: TLabel
        Left = 5
        Top = 29
        Width = 58
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'SOYA&DI'
        FocusControl = DBEdit1
      end
      object Label6: TLabel
        Left = 245
        Top = 7
        Width = 64
        Height = 14
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'KAYIT KODU'
        FocusControl = EditKURUM
      end
      object Label9: TLabel
        Left = 13
        Top = 335
        Width = 70
        Height = 14
        Caption = 'SSK S�C�L NO'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 12
        Top = 181
        Width = 360
        Height = 12
        Caption = 'HASTANIN BA�LI OLDU�U KURUMA A�T RE�ETE ARKASI BA�LIKLARI'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 12
        Top = 320
        Width = 210
        Height = 12
        Caption = 'HASTA SSK'#39'LI �SE SSK'#39'YA A�T B�LG�LER�'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label15: TLabel
        Left = 172
        Top = 335
        Width = 106
        Height = 13
        Caption = 'KRM.MEM.�N�TE NO'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 320
        Top = 335
        Width = 51
        Height = 15
        Caption = '��YER� NO'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label18: TLabel
        Left = 77
        Top = 288
        Width = 62
        Height = 14
        Caption = 'V�&ZE TAR�H�'
        FocusControl = EditVIZE_TRH
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelMuaf: TLabel
        Left = 241
        Top = 289
        Width = 31
        Height = 14
        Caption = 'MUAF'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object LabelBAS4: TLabel
        Left = 12
        Top = 240
        Width = 123
        Height = 14
        AutoSize = False
        Caption = '4. BA�LIK'
        FocusControl = EditLISTBAS
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelBAS5: TLabel
        Left = 145
        Top = 240
        Width = 126
        Height = 15
        AutoSize = False
        Caption = '5. BA�LIK'
        FocusControl = EditLISTBAS2
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelBAS6: TLabel
        Left = 281
        Top = 240
        Width = 122
        Height = 14
        AutoSize = False
        Caption = '6. BA�LIK'
        FocusControl = EditLISTBAS3
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object SpeedBVIZE: TSpeedButton
        Left = 214
        Top = 285
        Width = 22
        Height = 20
        Hint = 'Takvime Bak�n'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000000000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333330000003333333333333333330000003338888888888888330000003304
          0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
          FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
          F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
          000033F7777777777F4833000000330000000000003333000000333333333333
          333333000000333333333333333333000000}
        ParentShowHint = False
        ShowHint = True
        Spacing = 3
        OnClick = SpeedBtnTakvimClick
      end
      object Label17: TLabel
        Left = 421
        Top = 113
        Width = 99
        Height = 14
        Caption = 'VERES�YEDE L�M�T�'
      end
      object EditHASTADI: TDBEdit
        Left = 65
        Top = 2
        Width = 152
        Height = 22
        DataField = 'HASTADI'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 0
      end
      object EditKURUM: TDBEdit
        Left = 313
        Top = 25
        Width = 75
        Height = 22
        DataField = 'KURUM'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 2
        OnExit = EditKURUMExit
      end
      object EditADRES2: TDBEdit
        Left = 65
        Top = 76
        Width = 161
        Height = 22
        DataField = 'ADRES2'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 5
      end
      object EditADRES3: TDBEdit
        Left = 65
        Top = 99
        Width = 161
        Height = 22
        DataField = 'ADRES3'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 6
      end
      object EditTLFEV: TDBEdit
        Left = 313
        Top = 53
        Width = 87
        Height = 22
        DataField = 'TLFEV'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 7
      end
      object EditTLFIS: TDBEdit
        Left = 313
        Top = 76
        Width = 87
        Height = 22
        DataField = 'TLFIS'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 8
      end
      object EditTARIH: TDBEdit
        Left = 65
        Top = 149
        Width = 77
        Height = 22
        DataField = 'TARIH'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 10
      end
      object EditUYARI: TDBEdit
        Left = 65
        Top = 126
        Width = 144
        Height = 22
        DataField = 'UYARI'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 9
      end
      object MemoBILGI: TDBMemo
        Left = 419
        Top = 168
        Width = 145
        Height = 142
        Color = clCaptionText
        DataField = 'BILGI'
        DataSource = HASTASRC
        ScrollBars = ssBoth
        TabOrder = 21
      end
      object EditLISTBAS: TDBEdit
        Left = 11
        Top = 211
        Width = 125
        Height = 22
        DataField = 'BAS1'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 11
      end
      object EditLISTBAS2: TDBEdit
        Left = 144
        Top = 211
        Width = 125
        Height = 22
        DataField = 'BAS2'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 12
      end
      object EditLISTBAS3: TDBEdit
        Left = 280
        Top = 211
        Width = 125
        Height = 22
        DataField = 'BAS3'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 13
      end
      object EditBORC: TDBEdit
        Left = 280
        Top = 132
        Width = 128
        Height = 22
        Color = clNavy
        DataField = 'BORC'
        DataSource = HASTASRC
        Enabled = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 26
        Visible = False
      end
      object EditALACAK: TDBEdit
        Left = 280
        Top = 110
        Width = 128
        Height = 22
        Color = clRed
        DataField = 'ALACAK'
        DataSource = HASTASRC
        Enabled = False
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 25
        Visible = False
      end
      object DBRadioGroup1: TDBRadioGroup
        Left = 419
        Top = -1
        Width = 142
        Height = 66
        Caption = 'HASTA SINIFI'
        Columns = 2
        DataField = 'SINIF'
        DataSource = HASTASRC
        Items.Strings = (
          'N&ormal'
          '�al�&�an'
          'E&mekli'
          'Rap/&Yat.'
          'Di&�er')
        TabOrder = 3
        Values.Strings = (
          'N'
          '�'
          'E'
          'R'
          'D')
      end
      object BitBtnSakla: TBitBtn
        Left = 443
        Top = 321
        Width = 89
        Height = 27
        Caption = '&Sakla'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 22
        OnClick = BitBtnSaklaClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF7733333033000000033333373377777773330000}
        Layout = blGlyphRight
        NumGlyphs = 2
      end
      object BitBtnIptal: TBitBtn
        Left = 444
        Top = 353
        Width = 89
        Height = 27
        Caption = '&Vazge�'
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 23
        OnClick = BitBtnIptalClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333333333333333333FFF33FF333FFF339993370733
          999333777FF37FF377733339993000399933333777F777F77733333399970799
          93333333777F7377733333333999399933333333377737773333333333990993
          3333333333737F73333333333331013333333333333777FF3333333333910193
          333333333337773FF3333333399000993333333337377737FF33333399900099
          93333333773777377FF333399930003999333337773777F777FF339993370733
          9993337773337333777333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        Layout = blGlyphRight
        NumGlyphs = 2
      end
      object EditADRES: TDBEdit
        Left = 65
        Top = 53
        Width = 161
        Height = 22
        DataField = 'ADRES1'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 4
      end
      object DBEdit1: TDBEdit
        Left = 65
        Top = 25
        Width = 152
        Height = 22
        DataField = 'HASTASOYAD'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 1
      end
      object DBEdit2: TDBEdit
        Left = 313
        Top = 2
        Width = 68
        Height = 22
        Color = clSilver
        DataField = 'HASTANO'
        DataSource = HASTASRC
        Enabled = False
        MaxLength = 0
        TabOrder = 24
      end
      object DBEdit3: TDBEdit
        Left = 11
        Top = 350
        Width = 100
        Height = 22
        DataField = 'SICILNO'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 18
      end
      object DBEdit4: TDBEdit
        Left = 172
        Top = 350
        Width = 73
        Height = 22
        DataField = 'KM_UNITNO'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 19
      end
      object DBEdit5: TDBEdit
        Left = 321
        Top = 350
        Width = 81
        Height = 22
        DataField = 'ISYERINO'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 20
      end
      object EditVIZE_TRH: TDBEdit
        Left = 144
        Top = 283
        Width = 67
        Height = 22
        DataField = 'VIZETRH'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 17
        OnExit = EditVIZETRHExit
      end
      object EditBAS4: TDBEdit
        Left = 11
        Top = 254
        Width = 125
        Height = 22
        DataField = 'BAS4'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 14
      end
      object EditBAS5: TDBEdit
        Left = 144
        Top = 254
        Width = 125
        Height = 22
        DataField = 'BAS5'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 15
      end
      object EditBAS6: TDBEdit
        Left = 280
        Top = 254
        Width = 125
        Height = 22
        DataField = 'BAS6'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 16
      end
      object DBRadioGroup2: TDBRadioGroup
        Left = 421
        Top = 69
        Width = 136
        Height = 34
        Caption = 'Versiyesini Uyar'
        Columns = 2
        DataField = 'VRSUYARI'
        DataSource = HASTASRC
        Items.Strings = (
          'Evet'
          'Hay�r')
        TabOrder = 27
        Values.Strings = (
          'E'
          'H')
      end
      object DBEdit6: TDBEdit
        Left = 421
        Top = 128
        Width = 132
        Height = 22
        DataField = 'VRSLIMIT'
        DataSource = HASTASRC
        MaxLength = 0
        TabOrder = 28
      end
    end
  end
  object HASTASRC: TDataSource
    DataSet = HASTATable
    Left = 153
    Top = 151
  end
  object HASTATable: TTable
    BeforePost = HASTATableBeforePost
    DatabaseName = 'ECZ'
    TableName = 'hasta.db'
    Left = 184
    Top = 157
    object HASTATableHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object HASTATableKURUM: TStringField
      FieldName = 'KURUM'
      Size = 11
    end
    object HASTATableADRES1: TStringField
      FieldName = 'ADRES1'
      Size = 31
    end
    object HASTATableADRES2: TStringField
      FieldName = 'ADRES2'
      Size = 31
    end
    object HASTATableADRES3: TStringField
      FieldName = 'ADRES3'
      Size = 31
    end
    object HASTATableTLFEV: TStringField
      FieldName = 'TLFEV'
      Size = 15
    end
    object HASTATableTLFIS: TStringField
      FieldName = 'TLFIS'
      Size = 15
    end
    object HASTATableSINIF: TStringField
      FieldName = 'SINIF'
      Size = 1
    end
    object HASTATableTARIH: TDateField
      FieldName = 'TARIH'
    end
    object HASTATableUYARI: TStringField
      FieldName = 'UYARI'
      Size = 36
    end
    object HASTATableBAS1: TStringField
      FieldName = 'BAS1'
      Size = 17
    end
    object HASTATableBAS2: TStringField
      FieldName = 'BAS2'
      Size = 17
    end
    object HASTATableBAS3: TStringField
      FieldName = 'BAS3'
      Size = 17
    end
    object HASTATableBORC: TCurrencyField
      FieldName = 'BORC'
    end
    object HASTATableALACAK: TCurrencyField
      FieldName = 'ALACAK'
    end
    object HASTATableBILGI: TMemoField
      FieldName = 'BILGI'
      BlobType = ftMemo
      Size = 1
    end
    object HASTATableHASTASOYAD: TStringField
      FieldName = 'HASTASOYAD'
      Size = 18
    end
    object HASTATableSICILNO: TStringField
      FieldName = 'SICILNO'
      EditMask = '!9999999999999;1;_'
      Size = 13
    end
    object HASTATableHASTADI: TStringField
      FieldName = 'HASTADI'
      Size = 18
    end
    object HASTATableKM_UNITNO: TStringField
      FieldName = 'KM_UNITNO'
      EditMask = '!99999999;1;_'
      Size = 8
    end
    object HASTATableISYERINO: TStringField
      FieldName = 'ISYERINO'
      EditMask = '!999999999;1;_'
      Size = 9
    end
    object HASTATableBAS4: TStringField
      FieldName = 'BAS4'
      Size = 17
    end
    object HASTATableBAS5: TStringField
      FieldName = 'BAS5'
      Size = 17
    end
    object HASTATableBAS6: TStringField
      FieldName = 'BAS6'
      Size = 17
    end
    object HASTATableVIZETRH: TDateField
      FieldName = 'VIZETRH'
      OnGetText = HASTATableVIZETRHGetText
      OnSetText = HASTATableVIZETRHSetText
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1;_'
    end
    object HASTATableVRSLIMIT: TCurrencyField
      FieldName = 'VRSLIMIT'
    end
    object HASTATableVRSUYARI: TStringField
      FieldName = 'VRSUYARI'
      Size = 1
    end
  end
  object kurumBakT: TTable
    DatabaseName = 'ECZ'
    TableName = 'KRMLAR.DB'
    Left = 379
    Top = 107
    object kurumBakTKOD: TStringField
      FieldName = 'KOD'
      Required = True
      Size = 11
    end
    object kurumBakTETIKET1: TStringField
      FieldName = 'ETIKET1'
      Size = 17
    end
    object kurumBakTETIKET2: TStringField
      FieldName = 'ETIKET2'
      Size = 17
    end
    object kurumBakTETIKET3: TStringField
      FieldName = 'ETIKET3'
      Size = 17
    end
    object kurumBakTETIKET4: TStringField
      FieldName = 'ETIKET4'
      Size = 17
    end
    object kurumBakTETIKET5: TStringField
      FieldName = 'ETIKET5'
      Size = 17
    end
    object kurumBakTETIKET6: TStringField
      FieldName = 'ETIKET6'
      Size = 17
    end
  end
end